home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 8 / Revista CD Expert nº 08 CD1.iso / Utilitarios / Diversos / Coeli Stella 2000 / _SETUP.1 / Stella.exe / 0 / RCDATA / TMAINFORM / TMAINFORM.txt
Text File  |  1999-03-13  |  29KB  |  1,091 lines

  1. object MainForm: TMainForm
  2.   Left = 0
  3.   Top = 119
  4.   Width = 264
  5.   Height = 117
  6.   BorderIcons = [biSystemMenu, biMinimize]
  7.   Caption = 'Coeli - Stella 2000'
  8.   Color = 4194304
  9.   Font.Color = clWindowText
  10.   Font.Height = -14
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   Menu = MainMenu1
  14.   Scaled = False
  15.   OnActivate = FormActivate
  16.   OnClose = FormClose
  17.   OnCreate = FormCreate
  18.   OnDestroy = FormDestroy
  19.   OnShow = FormShow
  20.   PixelsPerInch = 125
  21.   TextHeight = 16
  22.   object JPEGImage1: TJPEGImage
  23.     Left = 0
  24.     Top = 0
  25.     Width = 256
  26.     Height = 38
  27.     Align = alClient
  28.     Stretch = True
  29.     NumOfColors = _256
  30.     DCTMethod = Integ
  31.     Dither = FS
  32.     FastProcessing = False
  33.     GrayScale = False
  34.     NoSmooth = False
  35.     OnePass = True
  36.     ProgressStep = 10
  37.   end
  38.   object MainMenu1: TMainMenu
  39.     Left = 9
  40.     Top = 4
  41.     object File1: TMenuItem
  42.       Caption = '&File'
  43.       ShortCut = 0
  44.       object N6: TMenuItem
  45.         Caption = '-'
  46.         ShortCut = 0
  47.       end
  48.       object ObservingLogs1: TMenuItem
  49.         Caption = '--- Observing Log ---'
  50.         ShortCut = 16463
  51.         OnClick = ObservingLogs1Click
  52.       end
  53.       object N5: TMenuItem
  54.         Caption = '-'
  55.         ShortCut = 0
  56.       end
  57.       object PrintSky1: TMenuItem
  58.         Caption = '&Print Sky'
  59.         ShortCut = 120
  60.         OnClick = PrintSky1Click
  61.       end
  62.       object PrinterSetup1: TMenuItem
  63.         Caption = 'Printer Setup'
  64.         ShortCut = 8312
  65.         OnClick = PrinterSetup1Click
  66.       end
  67.       object N3: TMenuItem
  68.         Caption = '-'
  69.         ShortCut = 0
  70.       end
  71.       object Preferences: TMenuItem
  72.         Caption = '&Preferences...'
  73.         ShortCut = 0
  74.         object PreferencesStore1: TMenuItem
  75.           Caption = '&Store'
  76.           ShortCut = 118
  77.           OnClick = PreferencesStore1Click
  78.         end
  79.         object PreferencesRestore1: TMenuItem
  80.           Caption = '&Restore'
  81.           ShortCut = 8310
  82.           OnClick = PreferencesRestore1Click
  83.         end
  84.       end
  85.       object Setup1: TMenuItem
  86.         Caption = '&Setup'
  87.         ShortCut = 0
  88.         OnClick = Setup1Click
  89.       end
  90.       object N4: TMenuItem
  91.         Caption = '-'
  92.         ShortCut = 0
  93.       end
  94.       object Quit1: TMenuItem
  95.         Caption = '&Quit'
  96.         ShortCut = 0
  97.         OnClick = Quit1Click
  98.       end
  99.     end
  100.     object Set1: TMenuItem
  101.       Caption = '&View'
  102.       ShortCut = 0
  103.       object Sky1: TMenuItem
  104.         Caption = '&Sky'
  105.         ShortCut = 0
  106.         OnClick = Sky1Click
  107.       end
  108.       object FullScreen1: TMenuItem
  109.         Caption = '&Full Screen'
  110.         ShortCut = 16467
  111.         OnClick = FullScreen1Click
  112.       end
  113.       object Toolbars1: TMenuItem
  114.         Caption = '-'
  115.         ShortCut = 0
  116.       end
  117.       object Timebar1: TMenuItem
  118.         Caption = '&Time bar'
  119.         ShortCut = 0
  120.         OnClick = Timebar1Click
  121.       end
  122.       object Viewbar1: TMenuItem
  123.         Caption = '&View bar'
  124.         Checked = True
  125.         ShortCut = 16470
  126.         OnClick = Viewbar1Click
  127.       end
  128.       object N1: TMenuItem
  129.         Caption = '-'
  130.         ShortCut = 0
  131.       end
  132.       object LiveEphem1: TMenuItem
  133.         Caption = '&Live Ephem'
  134.         ShortCut = 16460
  135.         OnClick = LiveEphem1Click
  136.       end
  137.       object ObservingList1: TMenuItem
  138.         Caption = '&Observing List'
  139.         ShortCut = 16468
  140.         OnClick = ObservingList1Click
  141.       end
  142.       object N16: TMenuItem
  143.         Caption = '-'
  144.         ShortCut = 0
  145.       end
  146.       object PictureWindow1: TMenuItem
  147.         Caption = '&Picture window'
  148.         ShortCut = 16471
  149.         OnClick = PictureWindow1Click
  150.       end
  151.       object SkyQuiz1: TMenuItem
  152.         Caption = 'Sky &Quiz'
  153.         ShortCut = 16465
  154.         OnClick = SkyQuiz1Click
  155.       end
  156.       object QuikSky1: TMenuItem
  157.         Caption = '&QuikSky'
  158.         Enabled = False
  159.         ShortCut = 0
  160.         Visible = False
  161.       end
  162.       object N20: TMenuItem
  163.         Caption = '-'
  164.         Enabled = False
  165.         ShortCut = 0
  166.       end
  167.       object MyTelescope1: TMenuItem
  168.         Caption = '&My Telescope'
  169.         ShortCut = 0
  170.         OnClick = MyTelescope1Click
  171.       end
  172.       object SlewScope1: TMenuItem
  173.         Caption = 'Slew Scope'
  174.         ShortCut = 121
  175.         OnClick = SlewScope1Click
  176.       end
  177.     end
  178.     object Options1: TMenuItem
  179.       Caption = '&Options'
  180.       ShortCut = 0
  181.       object PlotStars1: TMenuItem
  182.         Caption = 'Redraw &Sky'
  183.         ShortCut = 123
  184.         OnClick = PlotStars1Click
  185.       end
  186.       object RefreshStars1: TMenuItem
  187.         Caption = '&Refresh Sky'
  188.         ShortCut = 0
  189.         OnClick = RefreshStars1Click
  190.       end
  191.       object N7: TMenuItem
  192.         Caption = '-'
  193.         ShortCut = 0
  194.       end
  195.       object Field1: TMenuItem
  196.         Caption = 'Field'
  197.         ShortCut = 0
  198.         object Centre1: TMenuItem
  199.           Caption = '&Centre'
  200.           ShortCut = 0
  201.           OnClick = Centre1Click
  202.         end
  203.         object Zoom1: TMenuItem
  204.           Caption = '&Zoom'
  205.           ShortCut = 0
  206.           OnClick = Zoom1Click
  207.         end
  208.         object Unzoom1: TMenuItem
  209.           Caption = '&Unzoom'
  210.           ShortCut = 0
  211.           OnClick = Unzoom1Click
  212.         end
  213.         object Reset1: TMenuItem
  214.           Caption = '&Reset'
  215.           ShortCut = 16466
  216.           OnClick = Reset1Click
  217.         end
  218.       end
  219.       object Viewpoint1: TMenuItem
  220.         Caption = 'Viewpoint'
  221.         ShortCut = 0
  222.         object Direction1: TMenuItem
  223.           Caption = '&Direction'
  224.           ShortCut = 0
  225.           object North1: TMenuItem
  226.             Caption = '&North'
  227.             ShortCut = 0
  228.             OnClick = North1Click
  229.           end
  230.           object South1: TMenuItem
  231.             Caption = '&South'
  232.             ShortCut = 0
  233.             OnClick = South1Click
  234.           end
  235.           object East1: TMenuItem
  236.             Caption = '&East'
  237.             ShortCut = 0
  238.             OnClick = East1Click
  239.           end
  240.           object West1: TMenuItem
  241.             Caption = '&West'
  242.             ShortCut = 0
  243.             OnClick = West1Click
  244.           end
  245.           object Set4: TMenuItem
  246.             Caption = 'Se&t'
  247.             ShortCut = 16452
  248.             OnClick = Set4Click
  249.           end
  250.         end
  251.         object Elevation1: TMenuItem
  252.           Caption = '&Elevation'
  253.           ShortCut = 0
  254.           object Horizon1: TMenuItem
  255.             Caption = '&Horizon'
  256.             ShortCut = 16456
  257.             OnClick = Horizon1Click
  258.           end
  259.           object Zenith1: TMenuItem
  260.             Caption = '&Zenith'
  261.             ShortCut = 16470
  262.             OnClick = Zenith1Click
  263.           end
  264.           object Intermediate1: TMenuItem
  265.             Caption = '&Intermediate'
  266.             ShortCut = 16457
  267.             OnClick = Intermediate1Click
  268.           end
  269.           object Set3: TMenuItem
  270.             Caption = '&Set'
  271.             ShortCut = 16453
  272.             OnClick = Set3Click
  273.           end
  274.         end
  275.         object Projection1: TMenuItem
  276.           Caption = '&Projection'
  277.           ShortCut = 0
  278.           object Equidistant1: TMenuItem
  279.             Caption = 'Equi&distant'
  280.             ShortCut = 113
  281.             OnClick = Equidistant1Click
  282.           end
  283.           object EqualArea1: TMenuItem
  284.             Caption = 'Equal &Area'
  285.             ShortCut = 114
  286.             OnClick = EqualArea1Click
  287.           end
  288.           object Stereographic1: TMenuItem
  289.             Caption = '&Stereographic'
  290.             ShortCut = 115
  291.             OnClick = Stereographic1Click
  292.           end
  293.           object Orthographic1: TMenuItem
  294.             Caption = '&Orthographic'
  295.             ShortCut = 116
  296.             OnClick = Orthographic1Click
  297.           end
  298.           object N8: TMenuItem
  299.             Caption = '-'
  300.             ShortCut = 0
  301.           end
  302.           object Centeronstar1: TMenuItem
  303.             Caption = '&Center on object'
  304.             ShortCut = 16451
  305.             OnClick = Centeronstar1Click
  306.           end
  307.           object Autocenter1: TMenuItem
  308.             Caption = '&Auto-center'
  309.             ShortCut = 16449
  310.             OnClick = Autocenter1Click
  311.           end
  312.         end
  313.         object Location1: TMenuItem
  314.           Caption = '&Location'
  315.           ShortCut = 0
  316.           object WorldMap1: TMenuItem
  317.             Caption = '&World Map'
  318.             ShortCut = 0
  319.             OnClick = WorldMap1Click
  320.           end
  321.           object Set2: TMenuItem
  322.             Caption = '&Set'
  323.             ShortCut = 0
  324.             OnClick = Set2Click
  325.           end
  326.           object Database1: TMenuItem
  327.             Caption = '&Database'
  328.             Enabled = False
  329.             ShortCut = 0
  330.           end
  331.         end
  332.       end
  333.       object Clock1: TMenuItem
  334.         Caption = 'Clock'
  335.         ShortCut = 0
  336.         object Running1: TMenuItem
  337.           Caption = '&Running'
  338.           ShortCut = 0
  339.           OnClick = Running1Click
  340.         end
  341.         object Stopped1: TMenuItem
  342.           Caption = '&Stopped'
  343.           ShortCut = 0
  344.           OnClick = Stopped1Click
  345.         end
  346.         object Bar1: TMenuItem
  347.           Caption = '&Bar'
  348.           ShortCut = 0
  349.           OnClick = Bar1Click
  350.         end
  351.         object N9: TMenuItem
  352.           Caption = '-'
  353.           ShortCut = 0
  354.         end
  355.         object Forward1: TMenuItem
  356.           Caption = '&Forward'
  357.           ShortCut = 0
  358.           object Minute2: TMenuItem
  359.             Caption = '&Minute'
  360.             ShortCut = 0
  361.             OnClick = Minute2Click
  362.           end
  363.           object Hour2: TMenuItem
  364.             Caption = '&Hour'
  365.             ShortCut = 0
  366.             OnClick = Hour2Click
  367.           end
  368.           object Day2: TMenuItem
  369.             Caption = '&Day'
  370.             ShortCut = 0
  371.             OnClick = Day2Click
  372.           end
  373.           object Month2: TMenuItem
  374.             Caption = 'Mo&nth'
  375.             ShortCut = 0
  376.             OnClick = Month2Click
  377.           end
  378.           object Year2: TMenuItem
  379.             Caption = '&Year'
  380.             ShortCut = 0
  381.             OnClick = Year2Click
  382.           end
  383.         end
  384.         object Back1: TMenuItem
  385.           Caption = '&Back'
  386.           ShortCut = 0
  387.           object Minute1: TMenuItem
  388.             Caption = '&Minute'
  389.             ShortCut = 0
  390.             OnClick = Minute1Click
  391.           end
  392.           object Hour1: TMenuItem
  393.             Caption = '&Hour'
  394.             ShortCut = 0
  395.           end
  396.           object Day1: TMenuItem
  397.             Caption = '&Day'
  398.             ShortCut = 0
  399.           end
  400.           object Month1: TMenuItem
  401.             Caption = 'Mo&nth'
  402.             ShortCut = 0
  403.           end
  404.           object Year1: TMenuItem
  405.             Caption = '&Year'
  406.             ShortCut = 0
  407.           end
  408.         end
  409.         object Reset2: TMenuItem
  410.           Caption = 'R&eset'
  411.           ShortCut = 0
  412.           OnClick = Reset2Click
  413.         end
  414.         object Set5: TMenuItem
  415.           Caption = 'Se&t'
  416.           ShortCut = 0
  417.           OnClick = Set5Click
  418.         end
  419.       end
  420.       object Find1: TMenuItem
  421.         Caption = 'Find'
  422.         ShortCut = 0
  423.         OnClick = Find1Click
  424.       end
  425.       object N10: TMenuItem
  426.         Caption = '-'
  427.         ShortCut = 0
  428.       end
  429.       object Data1: TMenuItem
  430.         Caption = '&Data'
  431.         ShortCut = 0
  432.         object Report1: TMenuItem
  433.           Caption = '&Report'
  434.           ShortCut = 0
  435.           object ShowHide1: TMenuItem
  436.             Caption = '&Show/Hide'
  437.             ShortCut = 0
  438.             OnClick = ShowHide1Click
  439.           end
  440.           object Tailor1: TMenuItem
  441.             Caption = '&Tailor'
  442.             ShortCut = 0
  443.             OnClick = Tailor1Click
  444.           end
  445.         end
  446.         object DataBrowser1: TMenuItem
  447.           Caption = '&Browser'
  448.           Enabled = False
  449.           ShortCut = 0
  450.         end
  451.         object Readout1: TMenuItem
  452.           Caption = 'Read&out'
  453.           Enabled = False
  454.           ShortCut = 0
  455.         end
  456.       end
  457.       object Lines1: TMenuItem
  458.         Caption = 'Lines'
  459.         ShortCut = 0
  460.         object Horizon2: TMenuItem
  461.           Caption = '&Horizon'
  462.           ShortCut = 0
  463.           object Setonoff5: TMenuItem
  464.             Caption = '&Set on/off'
  465.             ShortCut = 0
  466.             OnClick = Setonoff5Click
  467.           end
  468.           object Legend1: TMenuItem
  469.             Caption = '&Legend'
  470.             ShortCut = 0
  471.             OnClick = Legend1Click
  472.           end
  473.           object Colour5: TMenuItem
  474.             Caption = '&Colour'
  475.             ShortCut = 0
  476.             OnClick = Colour5Click
  477.           end
  478.         end
  479.         object Aequator1: TMenuItem
  480.           Caption = '&Aequator'
  481.           ShortCut = 0
  482.           object Setonoff4: TMenuItem
  483.             Caption = '&Set on/off'
  484.             ShortCut = 0
  485.             OnClick = Setonoff4Click
  486.           end
  487.           object Colour4: TMenuItem
  488.             Caption = '&Colour'
  489.             ShortCut = 0
  490.             OnClick = Colour4Click
  491.           end
  492.         end
  493.         object Ecliptic1: TMenuItem
  494.           Caption = '&Ecliptic'
  495.           ShortCut = 0
  496.           object Setonoff3: TMenuItem
  497.             Caption = '&Set on/off'
  498.             ShortCut = 0
  499.             OnClick = Setonoff3Click
  500.           end
  501.           object Colour3: TMenuItem
  502.             Caption = '&Colour'
  503.             ShortCut = 0
  504.             OnClick = Colour3Click
  505.           end
  506.         end
  507.         object Constel1: TMenuItem
  508.           Caption = '&Constel'
  509.           ShortCut = 0
  510.           object Setonoff2: TMenuItem
  511.             Caption = '&Set on/off'
  512.             ShortCut = 0
  513.             OnClick = Setonoff2Click
  514.           end
  515.           object Boundaries1: TMenuItem
  516.             Caption = '&Boundaries'
  517.             ShortCut = 0
  518.             object Setonoff1: TMenuItem
  519.               Caption = '&Set on/off'
  520.               ShortCut = 16450
  521.               OnClick = Setonoff1Click
  522.             end
  523.             object Colour2: TMenuItem
  524.               Caption = '&Colour'
  525.               ShortCut = 0
  526.               OnClick = Colour2Click
  527.             end
  528.           end
  529.           object Names1: TMenuItem
  530.             Caption = '&Names'
  531.             ShortCut = 0
  532.             OnClick = Names1Click
  533.           end
  534.           object Colour1: TMenuItem
  535.             Caption = '&Colour'
  536.             ShortCut = 0
  537.             OnClick = Colour1Click
  538.           end
  539.         end
  540.       end
  541.       object Grids1: TMenuItem
  542.         Caption = 'Grids'
  543.         ShortCut = 0
  544.         object EquatorialRADec1: TMenuItem
  545.           Caption = '&Equatorial  RA/Dec'
  546.           ShortCut = 0
  547.           object Setonoff8: TMenuItem
  548.             Caption = '&Set on/off'
  549.             ShortCut = 0
  550.             OnClick = Setonoff8Click
  551.           end
  552.           object Colour7: TMenuItem
  553.             Caption = '&Colour'
  554.             ShortCut = 0
  555.             OnClick = Colour7Click
  556.           end
  557.         end
  558.         object HorizonAltAz1: TMenuItem
  559.           Caption = '&Horizon  Alt/Az'
  560.           ShortCut = 0
  561.           object Setonoff7: TMenuItem
  562.             Caption = '&Set on/off'
  563.             ShortCut = 0
  564.             OnClick = Setonoff7Click
  565.           end
  566.           object Colour6: TMenuItem
  567.             Caption = '&Colour'
  568.             ShortCut = 0
  569.             OnClick = Colour6Click
  570.           end
  571.         end
  572.         object Eclipticlambdabeta1: TMenuItem
  573.           Caption = '&Ecliptic  lambda/beta'
  574.           Enabled = False
  575.           ShortCut = 0
  576.           object Draw1: TMenuItem
  577.             Caption = '&Draw'
  578.             ShortCut = 0
  579.           end
  580.           object Setonoff6: TMenuItem
  581.             Caption = '&Set on/off'
  582.             ShortCut = 0
  583.           end
  584.         end
  585.       end
  586.       object Objects1: TMenuItem
  587.         Caption = 'Objects'
  588.         ShortCut = 0
  589.         object Stars1: TMenuItem
  590.           Caption = '&Stars'
  591.           ShortCut = 0
  592.           object More1: TMenuItem
  593.             Caption = '&More'
  594.             Enabled = False
  595.             ShortCut = 0
  596.           end
  597.           object Fewer1: TMenuItem
  598.             Caption = '&Fewer'
  599.             Enabled = False
  600.             ShortCut = 0
  601.           end
  602.           object Autoresolve1: TMenuItem
  603.             Caption = '&Autoresolve'
  604.             ShortCut = 0
  605.             OnClick = Autoresolve1Click
  606.           end
  607.           object Names5: TMenuItem
  608.             Caption = '&Names'
  609.             ShortCut = 0
  610.             OnClick = Names5Click
  611.           end
  612.           object Designations1: TMenuItem
  613.             Caption = '&Designations'
  614.             ShortCut = 0
  615.             OnClick = Designations1Click
  616.           end
  617.           object N11: TMenuItem
  618.             Caption = '-'
  619.             ShortCut = 0
  620.           end
  621.           object Style2: TMenuItem
  622.             Caption = '&Style'
  623.             ShortCut = 0
  624.             object Realistic1: TMenuItem
  625.               Caption = '&Realistic'
  626.               GroupIndex = 2
  627.               ShortCut = 121
  628.               OnClick = Realistic1Click
  629.             end
  630.             object Photoplate1: TMenuItem
  631.               Caption = '&Photoplate'
  632.               GroupIndex = 2
  633.               ShortCut = 8313
  634.               OnClick = Photoplate1Click
  635.             end
  636.             object Adjust1: TMenuItem
  637.               Caption = '&Adjust'
  638.               GroupIndex = 2
  639.               ShortCut = 0
  640.               OnClick = Adjust1Click
  641.             end
  642.           end
  643.         end
  644.         object Planets1: TMenuItem
  645.           Caption = '&Planets'
  646.           ShortCut = 0
  647.           object Setonoff11: TMenuItem
  648.             Caption = '&Set on/off'
  649.             ShortCut = 0
  650.             OnClick = Setonoff11Click
  651.           end
  652.           object Names4: TMenuItem
  653.             Caption = '&Names'
  654.             ShortCut = 0
  655.             OnClick = Names4Click
  656.           end
  657.         end
  658.         object Messier1: TMenuItem
  659.           Caption = '&Messier'
  660.           ShortCut = 0
  661.           object Setonoff10: TMenuItem
  662.             Caption = '&Set on/off'
  663.             ShortCut = 16461
  664.             OnClick = Setonoff10Click
  665.           end
  666.           object Catalog2: TMenuItem
  667.             Caption = '&Catalog'
  668.             ShortCut = 0
  669.             OnClick = Catalog2Click
  670.           end
  671.           object Names3: TMenuItem
  672.             Caption = '&Names'
  673.             ShortCut = 0
  674.             OnClick = Names3Click
  675.           end
  676.           object Colour8: TMenuItem
  677.             Caption = '&Colour'
  678.             ShortCut = 0
  679.             OnClick = Colour8Click
  680.           end
  681.         end
  682.         object NGC1: TMenuItem
  683.           Caption = '&NGC'
  684.           ShortCut = 0
  685.           object Setonoff9: TMenuItem
  686.             Caption = '&Set on/off'
  687.             ShortCut = 16462
  688.             OnClick = Setonoff9Click
  689.           end
  690.           object Catalog1: TMenuItem
  691.             Caption = '&Catalog'
  692.             ShortCut = 0
  693.             OnClick = Catalog1Click
  694.           end
  695.           object Names2: TMenuItem
  696.             Caption = '&Names'
  697.             ShortCut = 0
  698.           end
  699.         end
  700.         object Comets1: TMenuItem
  701.           Caption = '&Comets'
  702.           Enabled = False
  703.           ShortCut = 0
  704.           OnClick = Comets1Click
  705.         end
  706.         object Asteroids1: TMenuItem
  707.           Caption = '&Asteroids'
  708.           Enabled = False
  709.           ShortCut = 0
  710.         end
  711.       end
  712.       object N12: TMenuItem
  713.         Caption = '-'
  714.         ShortCut = 0
  715.       end
  716.       object Settings1: TMenuItem
  717.         Caption = 'Settings'
  718.         ShortCut = 0
  719.         object Effects1: TMenuItem
  720.           Caption = '&Effects'
  721.           ShortCut = 0
  722.           object Atmospheric1: TMenuItem
  723.             Caption = 'Atmospheric'
  724.             ShortCut = 0
  725.             object Refraction1: TMenuItem
  726.               Caption = '&Refraction'
  727.               ShortCut = 0
  728.               OnClick = Refraction1Click
  729.             end
  730.             object Extinction1: TMenuItem
  731.               Caption = '&Extinction'
  732.               Enabled = False
  733.               ShortCut = 0
  734.             end
  735.             object Scintillation1: TMenuItem
  736.               Caption = '&Scintillation'
  737.               ShortCut = 0
  738.               OnClick = Scintillation1Click
  739.             end
  740.           end
  741.           object Gravitational1: TMenuItem
  742.             Caption = '&Gravitational'
  743.             ShortCut = 0
  744.             object Precession1: TMenuItem
  745.               Caption = '&Precession'
  746.               ShortCut = 16464
  747.               OnClick = Precession1Click
  748.             end
  749.             object Nutation1: TMenuItem
  750.               Caption = '&Nutation'
  751.               Enabled = False
  752.               ShortCut = 0
  753.             end
  754.           end
  755.           object N14: TMenuItem
  756.             Caption = '-'
  757.             ShortCut = 0
  758.           end
  759.           object Brightness1: TMenuItem
  760.             Caption = 'Brightness'
  761.             ShortCut = 0
  762.             object Increase1: TMenuItem
  763.               Caption = '&Increase'
  764.               ShortCut = 0
  765.             end
  766.             object Decrease1: TMenuItem
  767.               Caption = '&Decrease'
  768.               ShortCut = 0
  769.             end
  770.           end
  771.           object Tint1: TMenuItem
  772.             Caption = 'Tint'
  773.             ShortCut = 0
  774.             object Whiten1: TMenuItem
  775.               Caption = '&Whiten'
  776.               ShortCut = 0
  777.             end
  778.             object Darken1: TMenuItem
  779.               Caption = '&Darken'
  780.               ShortCut = 0
  781.             end
  782.             object Restore1: TMenuItem
  783.               Caption = '&Restore'
  784.               ShortCut = 0
  785.             end
  786.           end
  787.         end
  788.         object Cursor1: TMenuItem
  789.           Caption = '&Cursor'
  790.           ShortCut = 0
  791.           object Hide1: TMenuItem
  792.             Caption = '&Hide'
  793.             ShortCut = 0
  794.             OnClick = Hide1Click
  795.           end
  796.           object Show1: TMenuItem
  797.             Caption = '&Show'
  798.             ShortCut = 0
  799.             OnClick = Show1Click
  800.           end
  801.         end
  802.         object Panels1: TMenuItem
  803.           Caption = '&Panels'
  804.           ShortCut = 0
  805.           object Font1: TMenuItem
  806.             Caption = '&Font'
  807.             ShortCut = 0
  808.           end
  809.           object Border1: TMenuItem
  810.             Caption = '&Border'
  811.             ShortCut = 0
  812.           end
  813.         end
  814.         object Labels1: TMenuItem
  815.           Caption = '&Labels'
  816.           ShortCut = 0
  817.           object Bright1: TMenuItem
  818.             Caption = '&Bright'
  819.             ShortCut = 0
  820.             OnClick = Bright1Click
  821.           end
  822.           object Small1: TMenuItem
  823.             Caption = '&Small'
  824.             ShortCut = 0
  825.             OnClick = Small1Click
  826.           end
  827.           object Medium1: TMenuItem
  828.             Caption = '&Medium'
  829.             ShortCut = 0
  830.             OnClick = Medium1Click
  831.           end
  832.           object Large1: TMenuItem
  833.             Caption = '&Large'
  834.             ShortCut = 0
  835.             OnClick = Large1Click
  836.           end
  837.         end
  838.         object Window1: TMenuItem
  839.           Caption = '&Window'
  840.           ShortCut = 0
  841.           object FullScreen2: TMenuItem
  842.             Caption = '&Full Screen'
  843.             ShortCut = 16467
  844.             OnClick = FullScreen2Click
  845.           end
  846.           object PrintSky2: TMenuItem
  847.             Caption = '&Print Sky'
  848.             ShortCut = 120
  849.             OnClick = PrintSky2Click
  850.           end
  851.           object PrintMode1: TMenuItem
  852.             Caption = 'Print &Mode'
  853.             ShortCut = 0
  854.             object Mono1: TMenuItem
  855.               Caption = '&Mono'
  856.               GroupIndex = 1
  857.               ShortCut = 0
  858.               OnClick = Mono1Click
  859.             end
  860.             object Colour9: TMenuItem
  861.               Caption = '&Colour'
  862.               GroupIndex = 1
  863.               ShortCut = 0
  864.               OnClick = Colour9Click
  865.             end
  866.           end
  867.           object Showhints1: TMenuItem
  868.             Caption = 'Show &hints'
  869.             ShortCut = 0
  870.           end
  871.           object N13: TMenuItem
  872.             Caption = '-'
  873.             ShortCut = 0
  874.           end
  875.           object Guide2: TMenuItem
  876.             Caption = '&Guide'
  877.             ShortCut = 112
  878.             OnClick = Guide2Click
  879.           end
  880.           object LiveEphem2: TMenuItem
  881.             Caption = 'Live &Ephem'
  882.             ShortCut = 16460
  883.             OnClick = LiveEphem2Click
  884.           end
  885.           object Log1: TMenuItem
  886.             Caption = '&Log'
  887.             ShortCut = 16463
  888.             OnClick = Log1Click
  889.           end
  890.         end
  891.       end
  892.     end
  893.     object Search1: TMenuItem
  894.       Caption = '&Search'
  895.       ShortCut = 0
  896.       object FindbyName1: TMenuItem
  897.         Caption = '&Find by Name'
  898.         ShortCut = 0
  899.         OnClick = FindbyName1Click
  900.       end
  901.       object FindbyDesig1: TMenuItem
  902.         Caption = 'Find by &Designation'
  903.         ShortCut = 0
  904.         OnClick = FindbyDesig1Click
  905.       end
  906.     end
  907.     object Special1: TMenuItem
  908.       Caption = 'S&pecial'
  909.       ShortCut = 0
  910.       object OnlineOptions: TMenuItem
  911.         Caption = '&Options'
  912.         ShortCut = 0
  913.         OnClick = OnlineOptionsClick
  914.       end
  915.       object FREEGIFTSfor1: TMenuItem
  916.         Caption = 'FREE GIFTS for...'
  917.         ShortCut = 0
  918.         object Questionnaire1: TMenuItem
  919.           Caption = '&Questionnaire'
  920.           ShortCut = 0
  921.           OnClick = Questionnaire1Click
  922.         end
  923.       end
  924.       object N17: TMenuItem
  925.         Caption = '-'
  926.         ShortCut = 0
  927.       end
  928.       object TalktoUs1: TMenuItem
  929.         Caption = '&Talk to Us'
  930.         ShortCut = 0
  931.         OnClick = TalktoUs1Click
  932.       end
  933.       object SupportNOW1: TMenuItem
  934.         Caption = '&Support NOW'
  935.         ShortCut = 0
  936.         OnClick = SupportNOW1Click
  937.       end
  938.       object N19: TMenuItem
  939.         Caption = '-'
  940.         Enabled = False
  941.         ShortCut = 0
  942.       end
  943.       object Order1: TMenuItem
  944.         Caption = 'Or&der Stella'
  945.         ShortCut = 0
  946.         OnClick = Order1Click
  947.       end
  948.       object Upgrade1: TMenuItem
  949.         Caption = '&Upgrade'
  950.         ShortCut = 0
  951.         OnClick = Upgrade1Click
  952.       end
  953.       object Extend1: TMenuItem
  954.         Caption = '&Extend!'
  955.         ShortCut = 0
  956.         OnClick = Extend1Click
  957.       end
  958.       object N18: TMenuItem
  959.         Caption = '-'
  960.         ShortCut = 0
  961.       end
  962.       object LatestStellaBuild1: TMenuItem
  963.         Caption = '&Latest Stella Build'
  964.         ShortCut = 0
  965.         OnClick = LatestStellaBuild1Click
  966.       end
  967.       object NewAdditions1: TMenuItem
  968.         Caption = '&New Additions'
  969.         ShortCut = 0
  970.         OnClick = NewAdditions1Click
  971.       end
  972.       object Visitusathome1: TMenuItem
  973.         Caption = '&Visit us at home'
  974.         ShortCut = 0
  975.         OnClick = Visitusathome1Click
  976.       end
  977.     end
  978.     object Reference1: TMenuItem
  979.       Caption = '&Reference'
  980.       ShortCut = 0
  981.       object AstroGloss1: TMenuItem
  982.         Caption = 'AstroGloss'
  983.         ShortCut = 0
  984.         OnClick = AstroGloss1Click
  985.       end
  986.       object SolarSystemGuide1: TMenuItem
  987.         Caption = 'Solar Guide'
  988.         ShortCut = 0
  989.         OnClick = SolarSystemGuide1Click
  990.       end
  991.     end
  992.     object Help1: TMenuItem
  993.       Caption = '&Help'
  994.       ShortCut = 0
  995.       object AboutCoeli1: TMenuItem
  996.         Caption = '&About'
  997.         ShortCut = 0
  998.         OnClick = AboutCoeli1Click
  999.       end
  1000.       object Products1: TMenuItem
  1001.         Caption = '&Products'
  1002.         ShortCut = 0
  1003.         OnClick = Products1Click
  1004.       end
  1005.       object Usage1: TMenuItem
  1006.         Caption = '&Usage'
  1007.         ShortCut = 16469
  1008.         OnClick = Usage1Click
  1009.       end
  1010.       object N2: TMenuItem
  1011.         Caption = '-'
  1012.         ShortCut = 0
  1013.       end
  1014.       object Overview1: TMenuItem
  1015.         Caption = '&Overview'
  1016.         ShortCut = 16496
  1017.         OnClick = Overview1Click
  1018.       end
  1019.       object GuideSubMenu1: TMenuItem
  1020.         Caption = '&Guide'
  1021.         ShortCut = 0
  1022.         object HTMLGuide1: TMenuItem
  1023.           Caption = 'HTML'
  1024.           ShortCut = 112
  1025.           OnClick = HTMLGuide1Click
  1026.         end
  1027.         object Guide1: TMenuItem
  1028.           Caption = 'RTF (+ index)'
  1029.           ShortCut = 0
  1030.           OnClick = Guide1Click
  1031.         end
  1032.       end
  1033.       object Keys1: TMenuItem
  1034.         Caption = '&Keys'
  1035.         ShortCut = 8304
  1036.         OnClick = Keys1Click
  1037.       end
  1038.       object N15: TMenuItem
  1039.         Caption = '-'
  1040.         ShortCut = 0
  1041.       end
  1042.       object License1: TMenuItem
  1043.         Caption = '&License'
  1044.         ShortCut = 0
  1045.         OnClick = License1Click
  1046.       end
  1047.       object Registration1: TMenuItem
  1048.         Caption = '&How to Order'
  1049.         ShortCut = 0
  1050.         OnClick = Registration1Click
  1051.       end
  1052.       object Register1: TMenuItem
  1053.         Caption = '&Register'
  1054.         Default = True
  1055.         ShortCut = 0
  1056.         object ViaInternet1: TMenuItem
  1057.           Caption = 'Via &Internet'
  1058.           Default = True
  1059.           Hint = 'Register at our secure online server'
  1060.           ShortCut = 0
  1061.           OnClick = ViaInternet1Click
  1062.         end
  1063.         object Australia: TMenuItem
  1064.           Caption = '&Australia'
  1065.           ShortCut = 0
  1066.           object OrderviaWWW1: TMenuItem
  1067.             Caption = '&Order via WWW'
  1068.             ShortCut = 0
  1069.             OnClick = OrderviaWWW1Click
  1070.           end
  1071.           object AussiFillform: TMenuItem
  1072.             Caption = '&Fill form'
  1073.             ShortCut = 0
  1074.             OnClick = AussiFillformClick
  1075.           end
  1076.         end
  1077.         object FreephoneUSA1: TMenuItem
  1078.           Caption = 'Free &phone USA'
  1079.           ShortCut = 0
  1080.           OnClick = FreephoneUSA1Click
  1081.         end
  1082.         object Fillform1: TMenuItem
  1083.           Caption = '&Fill form'
  1084.           ShortCut = 0
  1085.           OnClick = Fillform1Click
  1086.         end
  1087.       end
  1088.     end
  1089.   end
  1090. end
  1091.